;; Test character functions
(display "Testing character functions:")
(newline)

;; Test char?
(display "char? tests:")
(newline)
(display "(char? #\\a) => ")
(display (char? #\a))
(newline)
(display "(char? 65) => ")
(display (char? 65))
(newline)

;; Test char=?
(display "char=? tests:")
(newline)
(display "(char=? #\\a #\\a) => ")
(display (char=? #\a #\a))
(newline)
(display "(char=? #\\a #\\b) => ")
(display (char=? #\a #\b))
(newline)

;; Test char<?
(display "char<? tests:")
(newline)
(display "(char<? #\\a #\\b) => ")
(display (char<? #\a #\b))
(newline)
(display "(char<? #\\b #\\a) => ")
(display (char<? #\b #\a))
(newline)

;; Test char>?
(display "char>? tests:")
(newline)
(display "(char>? #\\b #\\a) => ")
(display (char>? #\b #\a))
(newline)
(display "(char>? #\\a #\\b) => ")
(display (char>? #\a #\b))
(newline)

;; Test char<=?
(display "char<=? tests:")
(newline)
(display "(char<=? #\\a #\\b) => ")
(display (char<=? #\a #\b))
(newline)
(display "(char<=? #\\a #\\a) => ")
(display (char<=? #\a #\a))
(newline)

;; Test char>=?
(display "char>=? tests:")
(newline)
(display "(char>=? #\\b #\\a) => ")
(display (char>=? #\b #\a))
(newline)
(display "(char>=? #\\a #\\a) => ")
(display (char>=? #\a #\a))
(newline)